SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
create Procedure [dbo].[SP_TCCANJ_CL02_I04]          
/*-------------------------------------------------------*/          
/*---Empresa              : OFISIS S.A.                --*/          
/*---Cliente              : NUEVO MUNDO S.A.           --*/          
/*---Sistema              : TESORERIA                  --*/          
/*---M÷dulo               : Empresa                    --*/          
/*---Programa             : Aceptaci½n de Letras       --*/          
/*---       CTAS POR COBRAR            --*/            
/*---Script               : tccanj_p.sql               --*/          
/*---Nombre SP            : SP_TCCANJ_CL02_I04         --*/          
/*---Desarrollado por     : Reynaldo Menacho Luyo      --*/          
/*---Fecha Creaci÷n       : 26/02/2004                 --*/          
/*---Base Datos           : Microsoft Sql Server       --*/          
/*---Versi÷n              : 2000                       --*/          
/*---Invoca a SP          :                            --*/          
/*-------------------------------------------------------*/          
/*-------------------------------------------------------*/            
/*---Modificado 1 por     : Maribel Julca Rodriguez      --*/            
/*---Fecha Modificaci©n   : 20/04/2005                   --*/             
/*---Detalle Modificaci©n : ingreso de los campos CO_USUA_CREA Y CO_USUA_MODI                           --*/            
/*-------------------------------------------------------*/            
/*---Modificado 2 por     : Carlos Timaná    --*/            
/*---Fecha Modificaci©n   : 01/02/2011                 --*/             
/*---Detalle Modificaci©n : Se agregó el campo NU_CANJ para que sea seteado--*/      
/*---      al momento que se actualiza TMDOCU_CLIE --*/        
/*-------------------------------------------------------*/          
/*---Comentarios                                       --*/          
/*---                                                  --*/          
/*---                                                  --*/          
/*-------------------------------------------------------*/          
/*-------------------------------------------------------*/          
/*---Drop Proc SP_TCCANJ_CL02_I04                      --*/          
/*---Grant Execute on SP_TCCANJ_CL02_I04 to public         --*/           
/*--- SP_TCCANJ_CL02_I04 '99', 'OFISIS', '10253647850', 'FAC', '001-0000001', '00000001',           
   2, 1711, 1711, 1711, 1711, 1711, 'ACT'  */          
/*-------------------------------------------------------*/          
 @ISCO_EMPR        TD_VC_002,           
 @ISCO_USUA_MODI TD_VC_008_USUA,          
 @ISCO_CLIE        TD_VC_020,          
 @ISCO_UNID_CONC   TD_VC_003,          
 @ISNU_CANJ        TD_VC_008,           
 @IDFE_CANJ        TD_DT_001,  
 @ISNU_ASTO        TD_VC_008           
        
 As        
Declare          
   @VNNU_SECU     TD_IN_001,          
   @VSCO_ESTA_DOCU  TD_VC_003,          
   @VSCO_DOCU_LETR  TD_VC_003          
           
 Begin Tran SP_TCCANJ_CL02_I04          
          
          
    Exec SP_TTDOCU_CNTB_Q01 6, @VSCO_DOCU_LETR OutPut          
          
--    Exec SP_TTTIES_DOCU_Q01 3, @VSCO_ESTA_DOCU OutPut          
          
    INSERT INTO TCCANJ_CLIE(CO_EMPR, CO_UNID_CONC, CO_CLIE, NU_CANJ, FE_CANJ, CO_MONE,           
    FA_TIPO_CAMB, CO_TIPO_OPER, FE_INIC_VMTO, NU_LETR_GENE, ST_PLAZ_VMTO, NU_DIAS_PLAZ,           
    NU_DIFE_DIAS, ST_FECH_VMTO, NU_DIAS_MESE, ST_DIAS_FMES, DE_OBSE, ST_CONT, NU_PROC,           
    TI_SITU, ST_CANJ, PC_INTR_MENS, IM_GAST_BANC, CO_USUA_CREA,FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI)          
    Select CO_EMPR, CO_UNID_CONC, CO_CLIE, NU_ASTO, FE_CANJ, CO_MONE,           
    FA_TIPO_CAMB, CO_TIPO_OPER, FE_INIC_VMTO, NU_LETR_GENE, ST_PLAZ_VMTO, NU_DIAS_PLAZ,           
    NU_DIFE_DIAS, ST_FECH_VMTO, NU_DIAS_MESE, ST_DIAS_FMES, DE_OBSE, ST_CONT, NU_PROC,           
    TI_SITU, ST_CANJ, PC_INTR_MENS, IM_GAST_BANC,@ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE()          
    From TCCANJ_CL02          
    Where CO_EMPR = @ISCO_EMPR          
    And CO_CLIE = @ISCO_CLIE          
    And CO_UNID_CONC = @ISCO_UNID_CONC          
    And NU_CANJ = @ISNU_CANJ          
And FE_CANJ = @IDFE_CANJ          
          
    If @@error <> 0          
      Begin          
        Rollback tran          
        Return          
      End             
          
          
    INSERT INTO TDCANJ_CLIE(CO_EMPR, CO_UNID_CONC, CO_CLIE, NU_CANJ, FE_CANJ, NU_SECU_CANJ,           
    NU_LETR_CLIE, CO_TIPO_DOCU, NU_DOCU_CLIE, NU_ORDE_LETR, IM_DOCU, IM_SALD_DOCU,           
    IM_SALD_CONV, IM_DETA, IM_DETA_NEGA, IM_CONV_DOCU, ST_CIER_DOCU, IM_CANJ_MDOC,           
    IM_CANJ_MCAN, CO_ESTA_ORIG, CO_USUA_CREA,FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI)          
    Select T1.CO_EMPR, T1.CO_UNID_CONC, T1.CO_CLIE, T2.NU_ASTO, T1.FE_CANJ, T1.NU_SECU_CANJ,           
    T1.NU_LETR_CLIE, T1.CO_TIPO_DOCU, T1.NU_DOCU_CLIE, T1.NU_ORDE_LETR, T1.IM_DOCU, T1.IM_SALD_DOCU,           
    T1.IM_SALD_CONV, T1.IM_DETA, T1.IM_DETA_NEGA, T1.IM_CONV_DOCU, T1.ST_CIER_DOCU, T1.IM_CANJ_MDOC,           
    T1.IM_CANJ_MCAN, T1.CO_ESTA_ORIG, @ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE()          
    From TDCANJ_CL02 T1, TCCANJ_CL02 T2          
    Where T1.CO_EMPR = @ISCO_EMPR          
    And T1.CO_CLIE = @ISCO_CLIE          
    And T1.CO_UNID_CONC = @ISCO_UNID_CONC          
    And T1.NU_CANJ = @ISNU_CANJ          
    And T1.FE_CANJ = @IDFE_CANJ          
    And T1.CO_EMPR = T2.CO_EMPR          
    And T1.CO_CLIE = T2.CO_CLIE          
    And T1.CO_UNID_CONC = T2.CO_UNID_CONC          
    And T1.NU_CANJ = T2.NU_CANJ          
    And T1.FE_CANJ = T2.FE_CANJ          
          
    If @@error <> 0        Begin          
        Rollback tran          
        Return          
      End              
          
    Update TMDOCU_CLIE          
    Set IM_PAGA = IM_PAGA + T2.IM_CANJ_MDOC,      
    NU_CANJ = @ISNU_ASTO,            
    CO_USUA_MODI = @ISCO_USUA_MODI,          
    FE_USUA_MODI = GETDATE()          
    From TMDOCU_CLIE T1, TDCANJ_CL02 T2          
    Where T2.CO_EMPR  = @ISCO_EMPR          
    And T2.CO_CLIE = @ISCO_CLIE          
    And T2.CO_UNID_CONC = @ISCO_UNID_CONC          
    And T2.NU_CANJ = @ISNU_CANJ          
    And T2.FE_CANJ = @IDFE_CANJ          
    And T1.CO_EMPR = T2.CO_EMPR          
    And T1.CO_CLIE = T2.CO_CLIE          
    And T1.CO_TIPO_DOCU = T2.CO_TIPO_DOCU          
    And T1.NU_DOCU_CLIE = T2.NU_DOCU_CLIE          
    And T2.ST_CIER_DOCU = 'N'          
          
    If @@error <> 0          
      Begin          
        Rollback tran          
        Return          
      End              
          
          
    Update TMDOCU_CLIE          
    Set IM_PAGA = IM_PAGA + T2.IM_CANJ_MDOC,        
    NU_CANJ = @ISNU_ASTO,            
    CO_ESTA_DOCU = 'CNJ',        
    CO_USUA_MODI = @ISCO_USUA_MODI,          
    FE_USUA_MODI = GETDATE()          
    From TMDOCU_CLIE T1, TDCANJ_CL02 T2          
    Where T2.CO_EMPR  = @ISCO_EMPR          
    And T2.CO_CLIE = @ISCO_CLIE          
    And T2.CO_UNID_CONC = @ISCO_UNID_CONC          
    And T2.NU_CANJ = @ISNU_CANJ          
    And T2.FE_CANJ = @IDFE_CANJ          
    And T1.CO_EMPR = T2.CO_EMPR          
    And T1.CO_CLIE = T2.CO_CLIE          
    And T1.CO_TIPO_DOCU = T2.CO_TIPO_DOCU          
    And T1.NU_DOCU_CLIE = T2.NU_DOCU_CLIE          
    And T2.ST_CIER_DOCU = 'S'          
          
    If @@error <> 0          
      Begin          
        Rollback tran          
        Return          
      End              
          
          
    INSERT INTO TMLETR_CLIE(CO_EMPR, NU_LETR_CLIE, CO_UNID_CONC, CO_TIPO_OPER, CO_BANC,           
    CO_AGEN, CO_CLIE, FE_EMIS, FE_VENC, FE_PROG_COBR, FA_TIPO_CAMB, CO_MONE, IM_TOTA,           
    NO_ENDO, FE_PROT, NU_CANJ, CO_ESTA_DOCU, NO_AVAL,           
    NO_DIRE_AVAL, NU_RUCC_AVAL, NU_TELE_AVAL, DE_LUGA_GIRO, TI_CLIE, CO_VEND, TI_FACT,           
    CO_LIQU, NU_UNIC_BANC, NU_DIET, DE_GLOS, ST_LETR_ADEL, DE_OBSE, ST_CONT, NU_PROC,           
    NU_REFE, CO_USUA_CREA,FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI)          
  
    Select T1.CO_EMPR, T1.NU_LETR_CLIE, T1.CO_UNID_CONC, T1.CO_TIPO_OPER, T1.CO_BANC,           
    T1.CO_AGEN, T1.CO_CLIE, T1.FE_EMIS, T1.FE_VENC, T1.FE_PROG_COBR, T1.FA_TIPO_CAMB, T1.CO_MONE, T1.IM_TOTA,           
    T1.NO_ENDO, T1.FE_PROT, T3.NU_ASTO, T1.CO_ESTA_DOCU, T1.NO_AVAL,           
    T1.NO_DIRE_AVAL, T1.NU_RUCC_AVAL, T1.NU_TELE_AVAL, T1.DE_LUGA_GIRO, T1.TI_CLIE, T1.CO_VEND, T1.TI_FACT,           
    T1.CO_LIQU, T1.NU_UNIC_BANC, T1.NU_DIET, T1.DE_GLOS, 'N', T1.DE_OBSE, T1.ST_CONT, T1.NU_PROC,           
    T1.NU_REFE, @ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE()          
    From TMLETR_CL02 T1, TDCANJ_CL02 T2, TCCANJ_CL02 T3          
    Where T1.CO_EMPR = @ISCO_EMPR          
    And T1.CO_EMPR = T2.CO_EMPR          
    And T1.CO_CLIE = T2.CO_CLIE          
    And T1.NU_LETR_CLIE = T2.NU_LETR_CLIE          
    And T2.CO_EMPR = @ISCO_EMPR          
    And T2.CO_CLIE = @ISCO_CLIE          
    And T2.CO_UNID_CONC = @ISCO_UNID_CONC          
    And T2.NU_CANJ = @ISNU_CANJ          
    And T2.FE_CANJ = @IDFE_CANJ          
    And T2.CO_EMPR = T3.CO_EMPR          
    And T2.CO_CLIE = T3.CO_CLIE          
    And T2.CO_UNID_CONC = T3.CO_UNID_CONC          
    And T2.NU_CANJ = T3.NU_CANJ          
    And T2.FE_CANJ = T3.FE_CANJ          
          
    If @@error <> 0          
      Begin          
        Rollback tran          
        Return          
   End              
          
          
 Insert Into TMDOCU_CLIE(CO_EMPR, CO_CLIE, CO_TIPO_DOCU, NU_DOCU_CLIE, CO_UNID_CONC, NU_ASTO, CO_TIPO_OPER,           
 CO_COND_PAGO, FE_VENC, FE_PRES, FE_EMIS, FE_PROG_COBR, FA_TIPO_CAMB, FA_CAMB_EXTR, CO_MONE, IM_BRUT_AFEC,           
 IM_BRUT_INAF, CO_IMP1, PC_IMP1, IM_IMP1, IM_TOTA, IM_PAGA, TI_DOCU_ORIG, NU_DOCU_ORIG, FE_DOCU_ORIG, DE_OBSE,           
 CO_ESTA_DOCU, NU_CANJ, TI_VEND, CO_VEND, TI_CLIE, TI_FACT, CO_LIQU, FE_DESP, CO_MODE_DIST, CO_USUA_CREA,FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI)          
 Select T1.CO_EMPR, T1.CO_CLIE, T1.CO_TIPO_DOCU, T1.NU_DOCU_CLIE, T1.CO_UNID_CONC, T1.NU_ASTO, T1.CO_TIPO_OPER,           
 T1.CO_COND_PAGO, T1.FE_VENC, T1.FE_PRES, T1.FE_EMIS, T1.FE_PROG_COBR, T1.FA_TIPO_CAMB, T1.FA_CAMB_EXTR, T1.CO_MONE,           
 T1.IM_BRUT_AFEC, T1.IM_BRUT_INAF, T1.CO_IMP1, T1.PC_IMP1, T1.IM_IMP1, T1.IM_TOTA, T1.IM_PAGA, T1.TI_DOCU_ORIG,           
 T1.NU_DOCU_ORIG, T1.FE_DOCU_ORIG, T1.DE_OBSE, T1.CO_ESTA_DOCU, T1.NU_CANJ, T1.TI_VEND, T1.CO_VEND, T1.TI_CLIE,           
 T1.TI_FACT, T1.CO_LIQU, T1.FE_DESP, T1.CO_MODE_DIST, @ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE()          
 From TMDOCU_CL02 T1, TDCANJ_CL02 T2, TCCANJ_CL02 T3          
    Where T1.CO_EMPR = @ISCO_EMPR          
    And T1.CO_EMPR = T2.CO_EMPR          
    And T1.CO_CLIE = T2.CO_CLIE          
    And T1.CO_TIPO_DOCU = T2.CO_TIPO_DOCU          
    And T1.NU_DOCU_CLIE = T2.NU_DOCU_CLIE          
    And T2.CO_EMPR = @ISCO_EMPR          
    And T2.CO_CLIE = @ISCO_CLIE          
    And T2.CO_UNID_CONC = @ISCO_UNID_CONC          
    And T2.NU_CANJ = @ISNU_CANJ          
    And T2.FE_CANJ = @IDFE_CANJ          
    And T2.CO_EMPR = T3.CO_EMPR          
    And T2.CO_CLIE = T3.CO_CLIE          
    And T2.CO_UNID_CONC = T3.CO_UNID_CONC          
    And T2.NU_CANJ = T3.NU_CANJ          
    And T2.FE_CANJ = T3.FE_CANJ          
          
    If @@error <> 0          
      Begin          
        Rollback tran          
        Return          
      End            
          
          
 Insert Into TDDISC_CCOS(CO_EMPR, CO_CLIE, CO_TIPO_DOCU, NU_DOCU_CLIE, NU_CORR, CO_CNTA_EMPR, TI_AUXI_EMPR,           
 CO_CENT_COST, CO_ORDE_SERV, ST_DIST, PO_DIST, IM_DIST, DE_OBSE, CO_SUBR, CO_SUBR_LETR, CO_USUA_CREA,FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI)          
 Select T1.CO_EMPR, T1.CO_CLIE, T1.CO_TIPO_DOCU, T1.NU_DOCU_CLIE, T1.NU_CORR, T1.CO_CNTA_EMPR, T1.TI_AUXI_EMPR,           
 T1.CO_CENT_COST, T1.CO_ORDE_SERV, T1.ST_DIST, T1.PO_DIST, T1.IM_DIST, T1.DE_OBSE, T1.CO_SUBR, T1.CO_SUBR_LETR, @ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE()          
 From TDDISC_CC02 T1, TDCANJ_CL02 T2, TCCANJ_CL02 T3          
    Where T1.CO_EMPR = @ISCO_EMPR          
    And T1.CO_EMPR = T2.CO_EMPR          
    And T1.CO_CLIE = T2.CO_CLIE          
    And T1.CO_TIPO_DOCU = T2.CO_TIPO_DOCU          
    And T1.NU_DOCU_CLIE = T2.NU_DOCU_CLIE          
    And T2.CO_EMPR = @ISCO_EMPR          
    And T2.CO_CLIE = @ISCO_CLIE          
    And T2.CO_UNID_CONC = @ISCO_UNID_CONC          
    And T2.NU_CANJ = @ISNU_CANJ          
    And T2.FE_CANJ = @IDFE_CANJ          
    And T2.CO_EMPR = T3.CO_EMPR          
    And T2.CO_CLIE = T3.CO_CLIE          
    And T2.CO_UNID_CONC = T3.CO_UNID_CONC          
    And T2.NU_CANJ = T3.NU_CANJ          
    And T2.FE_CANJ = T3.FE_CANJ          
          
    If @@error <> 0          
      Begin          
        Rollback tran          
        Return          
      End            
          
          
Commit Tran          
          
/*------------------------- Fin ------------------------------*/ 
GO
